For Each Short[] (gb)

Dim hShortArray As Short[]
Dim aShort As Short
For Each aShort In hShortArray
...
Next

Enumerates each element stored in the array.